home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr25
/
gg243774.zip
/
RECORD.ZIP
/
TEST.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1992-04-08
|
624b
|
23 lines
/* */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
'@echo off'
RetCode = SysCreateObject( "RecordFolder", "People Folder", "<WP_DESKTOP>", " ")
if RetCode then
say 'Folder Object created'
else do
say 'Error creating object'
exit(1)
end
/* Required for GA problem */
RetCode = SysCreateObject( "Record", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECORD_0>")
RetCode = SysCreateObject( "RecordFolder", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECFLDER_0>")
say 'A Record Folder has been created, select the context menu'
say '<Telephone List - Find> and test it.'